On 6 Oct 2004 09:14:45 -0700, andy@newlinecomputing.com (Andy) wrote:

>Please can somebody help me.
>
>I am developing a VB6 application connecting to a SQL Server 2000
>database,
>which at the moment is on my local machine.
>
>The code below loooks as though it should work but when I get
> to the openconnection statement I get a runtime error 13 "Type
>Mismatch"
>and the connection to the databse fails.
>
>My ODBC driver is setup correctly, as is the permissions on the sql
>server itself.
>
>Can anybody see what I am doing wrong.
>
>
>thanks in advance
>
>
>Option Explicit
>
>Private Sub getdata_Click()
>
>Dim wspodbc As Workspace
>Dim conNewConnection As Connection
>Dim rstodbc As Recordset
>Dim wrkspc As String
>
>
>wrkspc = "ODBCWRK"
>Set wspodbc = dbengine.createworkspace(wrkspc, "name", "password",
>dbuseodbc)
>
>Set conNewConnection = wspodbc.OpenConnection("connection1",
>dbDriverComplete, False, _
>
>"ODBC;database=DB1;UID=name;PWD=password;DSN=DBCONN1")
>
>
>
>End Sub