i achive by the following code
ano dsn is required
'
Imports System.Data.Odbc
Public Class Form5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cnN As New Odbc.OdbcConnection
Dim cmdN As New Odbc.OdbcCommand
Dim daN As New Odbc.OdbcDataAdapter
Dim dsN As New DataSet
Dim myConnection As New Odbc.OdbcConnection
myConnection.ConnectionString = "dsn=ano"
myConnection.Open()
cmdN.CommandText = "select * from ano "
cmdN.Connection = myConnection
daN.SelectCommand = cmdN
daN.Fill(ds, "abc")
MsgBox(ds.Tables("abc").Rows(0).Item("name"))
End Sub
End Class