Como usar Esto

[Dagados]

Public Sub conectar(ByVal ruta As String)
conexion.ConnectionString = ruta
conexion.Open()

End Sub

Public Function ObtenetDataSet(ByVal sql As String, ByVal tabla As String)
If conexion.State = ConnectionState.Open Then
Adaptador = New FbDataAdapter(sql, conexion)
Dim Bind As FbCommandBuilder = New FbCommandBuilder(Adaptador)
data = New DataSet
Adaptador.Fill(data, tabla)
End If
End Function