Private Sub CreateDataSet_Grid()
Dim cnGrid As New OleDb.OleDbConnection(cadenaConexion)
Try
cnGrid.Open()
Dim daGrid As New OleDb.OleDbDataAdapter("SELECT idCliente,Nombre,Telefono,TelefonoMovil FROM Clientes", cnGrid)
Dim dsGrid As New DataSet
daGrid.Fill(dsGrid, "Clientes")
'enlazo el grid con el daGrid
DataGrid.DataSource = dsGrid
'ya tengo los datos cierro la conexion
cnGrid.Close()
Catch ex As Exception
MsgBox(ex.Message) 'aki me dice k no puede encontrar el ISAM
End Try
End Sub