Imports System
Imports System.Data
Imports FirebirdSql.Data.FirebirdClient
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        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