Dim sql As String
Dim cn as MySqlConnection
Dim cm As MySqlCommand
Dim da As MySqlDataAdapter
Dim ds as DataSet
sql = "SELECT * FROM alumnos WHERE cursoAcademico=?curso"
cn = new MySqlConnection("Data Source=servidor;Database=base_de_datos;User ID=usuario; Password=clave; Allow Zero Datetime=True; CHARSET=latin1")
cn.open()
cm = New MySqlCommand()
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = cn
cm.Parameters.Add("?curso", MySqlDbType.Int32)
cm.Parameters("?curso").Value = 2006
da = New MySqlDataAdapter(cm)
ds= New DataSet()
da.Fill(ds)