C# Version

using Microsoft.Data.Odbc;
.......
private void button1_Click(object sender, System.EventArgs e)
{
OdbcConnection dbC35 = new OdbcConnection(@"dsn=clan35;");
dbC35.Open();
OdbcCommand cmC35 = new OdbcCommand();
cmC35.Connection = dbC35;
cmC35.CommandType = CommandType.Text;
cmC35.CommandText = @"select * from membertype";
OdbcDataReader rsC35 = cmC35.ExecuteReader();
while (rsC35.Read())
{
this.textBox1.Text += (string)rsC35["Description"] + Environment.
NewLine;
}
rsC35.Close();
>>>>>>>>>>>>>>>> dbC35.Close();
}

VB7 Version

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim dbC35 As New Microsoft.Data.Odbc.OdbcConnection("dsn=clan35;")
dbC35.Open()
Dim rsC35 As Microsoft.Data.Odbc.OdbcDataReader
Dim cmC35 As New Microsoft.Data.Odbc.
OdbcCommand("select * from membertype",
dbC35)
cmC35.CommandType = CommandType.Text
rsC35 = cmC35.ExecuteReader()
While rsC35.Read()
TextBox1.Text = TextBox1.Text & rsC35.Item("Description") &
Environment.NewLine
End While
>>>>>>>>>>>>>>> rsC35.Close()
dbC35.Close()
End Sub