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