>'Login Button Code >Dim oDataConn As DataObjectVB >Dim lcSQL As String >Dim oConn As OleDb.OleDbConnection >Dim goView As Data.DataView >Dim iRecords As Integer >Dim cStatusText As String >Dim docID As String > >'Get the connection string and sql statement > >docID = txtUserName.Text >Session("UserID") = docID > >lcSQL = "Select rtrim(lastname)+', '+rtrim(firstname) as docname, isnull(password,' ') as password, isnull(logincount,0) as logincount, isnull(lastlogin, ' ') as lastlogin, remaccess,remschedule from coper where isactive=1 and PerTypeID=1 and coPerID=" & docID > > >oConn = oDataConn.GetConnection() > >>Last Line causes error:
> Public Function GetConnection() As OleDb.OleDbConnection > Dim lcConnectionString As String > lcConnectionString = "provider=sqloledb.1;server=cqi-termserv;uid=ctore;pwd=cqi$$;database=ctore" > > Dim lcSQL As String > Dim oConn As OleDb.OleDbConnection > > oConn = VFPToolkit.vfpData.SqlConnect(lcConnectionString) > > Return oConn > > End Function >