Dim conn As String
 
        Dim dataset As New DataSet
        Dim dataadapter As FbDataAdapter
 
        conn = _
          "Database=C:\Programme\Firebird\Firebird_2_1\examples\empbuild\EMPLO" & _
          "EE.FDB;" & _
                 "User=SYSDBA;" & "Password=masterkey;" & _
                 "Dialect=3;" & "Server=localhost"
 
        Dim dbcon As New FbConnection(conn)
 
        dbcon.Open()
 
        ' Query absetzen und dem DataGridView zuweisen
 
        dataadapter = New FbDataAdapter("select * from employee", conn)
 
        dataadapter.Fill(dataset, "Tabelle")
 
        DataGridView1.DataSource = dataset.Tables("Tabelle")

Windows XP Home Service Pack 3 - Visual Basic 2008 Express - SQL Server 2008 Express with advance service