Dim cmd = New FbCommand("INSERT INTO " & globTabelle & "(ABSENDER," & _
  "ABSENDERADRESSE, EMPFNAME, EMPFADRESSE, BETREFF, GESENDET, ANLAGEN)" & _
"VALUES(@ABSENDER, @ABSENDERADRESSE, @EMPFNAME, @EMPFADRESSE, @BETREFF," & _
"@GESENDET, @ANLAGEN);")
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@ABSENDER", mail.SenderName)
cmd.Parameters.Add("@ABSENDERADRESSE", mail.SenderEmailAddress)
cmd.Parameters.Add("@EMPFNAME", mail.To)
cmd.Parameters.Add("@EMPFADRESSE", mail.Recipients.Item(1).Address)
cmd.Parameters.Add("@BETREFF", mail.Subject)
cmd.Parameters.Add("@GESENDET", mail.ReceivedTime)
cmd.Parameters.Add("@ANLAGEN", mail.SentOn)
                            '
cmd.Connection = New FbConnection(conStr)
cmd.Connection.Open()
cmd.ExecuteNonQuery()