Dim Benutzer As String = ("User = SYSDBA")
 
        Dim Passwort As String = ("Password = masterkey")
 
        Dim Datasource As String = ("Datasource = localhost")
 
        Dim Port As String = ("Port = 3050")
 
        Dim Dialekt As String = ("Dialect=3")
 
        Dim Zeichensatz As String = ("Charset=NONE")
 
        Dim Role As String = ("Role=")
 
        Dim Zeit As String = ("Connection lifetime=15")
 
        Dim Pooling As String = ("Pooling=true")
 
        Dim MinPoolSize As String = ("MinPoolSize=0")
 
        Dim MaxPoolSize As String = ("MaxPoolSize=50")
 
        Dim Paket As String = ("Packet Size=8192")
 
        Dim Servertyp As String = ("ServerType=0")
 
        Dim ForcedWrite As String = ("ForcedWrite=True")
 
        Dim Verbindung As String
 
        SaveFileDialog1.InitialDirectory = "F:\"
 
        SaveFileDialog1.Filter = "Firebird Datenbanken (*.fdb)|*.fdb"
 
        SaveFileDialog1.Title = "Wählen Sie eine Datenbank zum Speichern aus" & _
          "aus"
 
        If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
 
            Verbindung = Benutzer & ";" & Passwort & ";" & "Database = " & _
              SaveFileDialog1.FileName _
            & ";" & Dialekt & ";" & Datasource & ";" & Port & ";" & Zeichensatz _
            & ";" _
            & Paket & ";" & Servertyp & ";" & ForcedWrite
 
            Dim dbcon As New FbConnection(Verbindung)
 
            FbConnection.CreateDatabase(Verbindung)
 
        Else
 
            MsgBox("Abbruch")
 
        End If

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