Dim conStr As String
Dim sql As String
conStr = "Database=C:\archive\firebird\ABLAGE.FDB;" & _
         "User=SYSDBA;" & "Password=masterkey;" & _
         "Dialect=3;" & "Server=localhost"
 
Dim dbcon As New FbConnection(conStr)
  dbcon.Open()
        Dim dbcmd As IDbCommand = dbcon.CreateCommand()
        sql = "SELECT * FROM test"
        dbcmd.CommandText = sql
        Dim ds As DataSet = New DataSet()
        Dim da As FbDataAdapter = New FbDataAdapter(sql, dbcon)
        da.Fill(ds)
        DataGridView1.DataSource = ds.Tables(0)
        'DataGridView1.DataSource = ds.Tables.IndexOf("test")
  dbcon.Close()