VB6 Access 2007 using SEEK (after convert mdb to accdb)

vb Code:

'Code sample vb6 connecting with Ms-Access 2007/2010 
'Exemplo vb6 conectando com Ms-Access 2007/2010
 
'--------------------------------------------------------
Global sDirInstall
Global sMyDB As String
Global sMyDBVENDAS As String
'---------------------------------------------------------
Sub UserInfo()
    
'PROJECT -> REFERENCE: Microsoft ActiveX Data Objects 2.8 Library
 
    Dim con As ADODB.Connection
    Dim rs As ADODB.Recordset
    
    Set con = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    sDirInstall = App.Path
    sMyDB = sDirInstall & "\USER.accdb"
    con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sMyDB & ";Persist Security Info=False;Jet OLEDB:Database Password="
 
    rs.Index = "Primarykey"
    rs.CursorLocation = adUseServer
    rs.Open ("tb_User"), con, adOpenDynamic, adLockOptimistic, adCmdTableDirect
 
    Do While Not rs.EOF
        MsgBox rs.Fields("Userid") & " - " & rs.Fields("Nome")
        rs.MoveNext
    Loop
    
    rs.Seek Array("NewUser"), adSeekFirstEQ
    If rs.EOF Then
        rs.AddNew
        rs.Fields("Userid") = "NewUser"
        rs.Fields("Nome") = "USER NEW"
        rs.Update
        MsgBox "1 user added!"
    Else
        rs.Fields("Nome") = "USER NEW " & Now()
        rs.Update
        MsgBox "1 user changed!"
    End If
    rs.Close
    con.Close
End Sub

:thumb:
Good Lucky!
Boa Sorte!

Is this a demonstration project or a project you are having trouble with? Could you please wrap your code in [highlight="vb"][/highlight] to make it easier to read.

Quote:

---

Originally Posted by Nightwalker83

Is this a demonstration project or a project you are having trouble with? Could you please wrap your code in [highlight="vb"][/highlight] to make it easier to read.

---

Hi Nightwalker83 !

This a demonstration project to help who needs to upgrade vb6 code using new MS database format accdb.


Regards,

HENDELCWB

In that case I will request it moved to the code bank.

Welcome to VBForums :wave:

Thread moved from the 'VB6 and earlier' forum (which is for questions) to the 'CodeBank VB6' forum (which is for working examples)