Dim conStr As String
conStr = "Database=" & globDatenbank & ";" & _
         "User=" & globUser & ";" & "Password=" & globPassword & ";" & _
         "Dialect=3;" & "Server=" & globServer
 
Dim dbcon As New FbConnection(conStr)
Dim dbcmd As IDbCommand = dbcon.CreateCommand()
Dim da As FbDataAdapter
'
dbcon.Open()
'
dbcmd.Parameters.Add("PABSENDER")
dbcmd.Parameters.Add("PABSENDERADRESSE")
dbcmd.Parameters.Add("PEMPFNAME")
dbcmd.Parameters.Add("PEMPFADRESSE")
dbcmd.Parameters.Add("PBETREFF")
dbcmd.Parameters.Add("PGESENDET")
dbcmd.Parameters.Add("PANLAGEN")
'
dbcmd.CommandText = "INSERT INTO " & globTabelle & "(ABSENDER, ABSENDERADRESSE," & _
  "EMPFNAME, EMPFADRESSE, BETREFF, GESENDET, ANLAGEN)" & _
                     "VALUES(PABSENDER, PABSENDERADRESSE, PEMPFNAME," & _
                     "PEMPFADRESSE, PBETREFF, PGESENDET, PANLAGEN)"
'
dbcmd.Parameters.Item("PABSENDER") = mail.SenderName
dbcmd.Parameters.Item("PABSENDERADRESSE") = mail.SenderEmailAddress
dbcmd.Parameters.Item("PEMPFNAME") = mail.To
dbcmd.Parameters.Item("PEMPFADRESSE") = mail.Recipients.Item(1).Address
dbcmd.Parameters.Item("PBETREFF") = mail.Subject
dbcmd.Parameters.Item("PGESENDET") = mail.ReceivedTime
dbcmd.Parameters.Item("PANLAGEN") = mail.SentOn
'
da = New FbDataAdapter(dbcmd.CommandText, dbcon)
da.SelectCommand = dbcmd
dbcmd.ExecuteNonQuery()