1.) Make sure you've installed Centura's most recent OLEDB drivers (you'll find it in their downloads section)
2.) In VB reference SQLBASEOLEDB 1.0 Type Library (sqlbaseoledb.dll)
3.) Then code to it:
Dim objSQLBaseServer As SQLBASEOLEDBServer
Set objSQLBaseServer = New SQLBASEOLEDBServer
Dim strServer As String
Dim strPwd As String
strServer = "SvrName"
strPwd = "sysadm"
objSQLBaseServer.ConnectServer strServer, strPwd
objSQLBaseServer.DisconnectServer
Set objSQLBaseServer = Nothing
4.) If using ADO (Microsoft ActiveX Data Objects) 2.7 for example, again reference it (msado15.dll) in VB.
5.) Then code to it:
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Dim cm As ADODB.Command
Dim strConn As String
strConnGupta = "Provider=SQLBaseOLEDB; Data Source = MyOdbcDSNname"
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open strConnGupta
rs.Open Text1.Text, cn, adOpenKeyset, adLockBatchOptimistic, adCmdText
Hope it helps...