Imports Microsoft.Data.Odbc
Module ModMain

Sub Main()
Dim myConn As New OdbcConnection "DSN=MonGem;UID=sysdba;pwd=masterkey")
Dim myCom As OdbcCommand
Dim strSQL As String
Dim nr, i As Integer
myConn.Open()
Try
strSQL = "INSERT INTO DEFGRAFXLS VALUES (1,'" & Date.Today.ToShortDateString & " " & strTime & "', " & CStr(MyWS.Range("B" & i.ToString).Value) & "," & CStr(MyWS.Range("C" & i.ToString).Value) & "," & CStr(MyWS.Range("D" & i.ToString).Value) & ");"
myCom = New OdbcCommand(strSQL, myConn)
nr = myCom.ExecuteNonQuery()
Catch ex As Exception
MsgBox("Ошибка при работе с БД " + ex.Message)
Finally
myConn.Close()
End Try
End Sub
End Module


Вот реально работающий код из программы. MonGem - прописаный в ODBC DSN.
Программа работает в ASP приложении, поэтому DSN системный. Использую драйвер Gemini для связи с InterBase. Очень им довольна.