Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim ra as Integer 
'integer holds the number of records inserted 
myConnection = New SqlConnection
("server=localhost;uid=sa;pwd=;database=Hospital") 
'you need to provide password for sql server
myConnection.Open()
mycommand = New SqlCommand("INSERT INTO Patient
(ID,Name,address,DateofBirth,Gender,Phone,Emergencycontact,D
ateofRegistration) VALUES('" + lblid.Text + "','" + 
txtname.Text + "','" + rtxtaddress.Text + "','" + 
DateTimePicker1.Text + "','" + cmbgender.Text + "','" + 
txtphone.Text + "','" + txtemcon.Text + "','" + 
txtdoreg.Text + "')", mycon)ra=myCommand.ExecuteNonQuery()
MessageBox.Show("New Row Inserted" & ra)
myConnection.Close()

Dim myConnection As SqlConnection
Dim myCommand As SqlCommand
Dim ra as Integer 
'integer holds the number of records inserted 
myConnection = New SqlConnection
("server=localhost;uid=sa;pwd=;database=Hospital") 
'you need to provide password for sql server
myConnection.Open()
mycommand = New SqlCommand("INSERT INTO Patient
(ID,Name,address,DateofBirth,Gender,Phone,Emergencycontact,D
ateofRegistration) VALUES('" + lblid.Text + "','" + 
txtname.Text + "','" + rtxtaddress.Text + "','" + 
DateTimePicker1.Text + "','" + cmbgender.Text + "','" + 
txtphone.Text + "','" + txtemcon.Text + "','" + 
txtdoreg.Text + "')", myconnection)
ra=myCommand.ExecuteNonQuery()
MessageBox.Show("New Row Inserted" & ra)
myConnection.Close()

dim con as new sqlconnection
dim da as sqldataadapter
dim ds as new dataset
dim str as string

con.connectionstring="server=localhost;uid=sa;pwd=;database=
Hospital"
con.open
str="insert into patient values('" & lblid.Text & "','" & 
txtname.Text & "','" & rtxtaddress.Text & "','" & 
DateTimePicker1.Text & "','" & cmbgender.Text & "','" & 
txtphone.Text & "','" & txtemcon.Text & "','" & 
txtdoreg.Text &"')"
da=new sqldataadpter(str,con)
da.fill(ds,"patient")
msgbox "New Row inserted"
con.close