Guardar registros

[eduardo2009]

Ya modifique codigo por este

Private Sub Agregar1()
Dim cad As New MySqlConnection("Database=Pacientes;Data Source=localhost;User Id=root;Password=utan")
cad.Open()
Dim sql As String = "SELECT * FROM generales"
Dim cmd As New MySqlCommand(sql, cad)
Dim dr As MySqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
'Dim comMySQL As New MySqlCommand

Try
cmd.CommandText = "Insert into generales (fecha,apellidos,nombres,ocupacion,recomendado) values (" & TextBox18.Text & "," & TextBox2.Text & "," & TextBox1.Text & "," & TextBox3.Text & "," & TextBox4.Text & ")"
cmd.ExecuteNonQuery()
Catch ex As Exception
Return
MessageBox.Show("Error")
End Try

Return
End Sub

pero sigo sin poder guardar mis datos....

gracias!!!