espero que te sirva crea un boton de agregar y escribe el siguiente codigo
Private Sub Buttoninsertardatos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim i, idpaci, numcuarto, iddr, idhosp as integer
Dim Nom, Apat, Amat, Dire, Tel, Fing, Pade, as String
Dim rw as DataRow
rw= Dataset11.Tables(0).NewRow
'aqui llenalo con los campos de tu tabla
idpaci= Inputbox("Id_Paciente")
Nom= Inputbox("Nombre")
Apat= Inputbox("Apellido_P")
Amat= Inputbox("Apellido_m")
Dire= Inputbox("Direccion")
Tel= Inputbox("Telefono")
Fing= Inputbox("Fecha_Ingreso")
Numcuarto= Inputbox("no_cuarto")
iddr= Inputbox("Id_Doctor_acargo")
Pade= Inputbox("Padecimiento")
idhosp= Inputbox("Id_Hospital")
rw.Item ("Id_Paciente")= idpaci
rw.Item ("Nombre")= Nom
rw.Item ("Apellido_P")= Apat
rw.Item ("Apellido_m")= Amat
rw.Item ("Direccion")= Dire
rw.Item ("Telefono")= Tel
rw.Item ("Fecha_Ingreso")= Fing
rw.Item ("no_cuarto")= Numcuarto
rw.Item ("Id_Doctor_acargo")= iddr
rw.Item ("Padecimiento")= Pade
rw.Item ("Id_Hospital")= idhosp
Try
DataSet11.Tables(0).Rows.Add(rw)
i = SqlDataAdapter1.Update(DataSet11)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
