Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim cx As New Odbc.OdbcConnection
        Dim cm As New Odbc.OdbcCommand
        Dim da As New Odbc.OdbcDataAdapter
        Dim ds As New Data.DataSet


        cx.ConnectionString = "FileDsn=" & Application.StartupPath & "\mimundo.dsn;UID=irivero;PWD=15juani15;"
        cx.Open()
        cm.Connection = cx
        cm.CommandText = "SELECT * from cliente"
        cm.ExecuteNonQuery()
        da.SelectCommand = cm
        da.Fill(ds, "cliente")
        DataGridView1.DataSource = ds.Tables("cliente")
    End Sub
End Class