Dsn odbc dao vb6

[Peekay]

I need some advice on opening a MySql database DSN in VB6 with ODBC and DAO.
The code I use fails, and I do not know why.

Dim wsODBC As Workspace
Set wsODBC = DBEngine.CreateWorkspace("ODBCWorkspace", "admin", "", dbUseODBC)
Workspaces.Append wsODBC
Dim Conn As Connection
Set Conn = wsODBC.OpenConnection("Conn1", , , "ODBC;DSN=ibsmsbloem;") - this line gives an error OBDC call failed.
Dim rs As Recordset
Set rs = Conn.OpenRecordset("accountterms", dbOpenSnapshot)

Is there some checklist through which I may work to check that I have done everything right or some examples.

Thanks

[Zvoni]

Try

Dim Conn As Connection
Set Conn = wsODBC.OpenConnection("IBSMSbloem")

see: https://msdn.microsoft.com/de-de/lib.../ff196074.aspx

If you specify a registered ODBC data source name (DSN) in the connect argument, then the name argument can be any valid string, and will also provide the Name property for the Connection object. If a valid DSN is not included in the connect argument, then name must refer to a valid ODBC DSN, which will also be the Name property.

[ChrisE]

Hi Peekay,

it's been a while since I used DAO, but I'll have go....

Private Sub Command1_Click()
Dim ws As Workspace
Dim cn As Connection
Dim qd As QueryDef
Dim rs As Recordset

Set ws = CreateWorkspace("SQL_Server_ODBC", "", "", dbUseODBC)

Set cn = ws.OpenConnection("SQL_Server_Conn", dbDriverComplete, False, "ODBC;DSN=TestDaten;UID=USERNAME;")

Set qd = cn.CreateQueryDef("")

qd.SQL = "SELECT * FROM YourTable"
qd.ODBCTimeout = 0

Set rs = qd.OpenRecordset(dbOpenForwardOnly)

MsgBox "Name: " & rs!dsName

rs.Close
Set rs = Nothing

Set qd = Nothing

cn.Close
Set cn = Nothing

Set ws = Nothing
End Sub

regards
Chris