Dim query As String = "INSERT INTO Nombres (Nombre) VALUES(@Nombre)"
Dim CMD As New OleDb.OleDbCommand(query, CN2)
CMD.Parameters.AddWithValue("@Nombre", txtNuevoMedico.Text)
CN2.Open()
CMD.ExecuteNonQuery()
CN2.Close()
MsgBox("Nuevo medico:'" & txtNuevoMedico.Text & "' ha sido ingresado")