INSTRUCAO NAO FUNCIONA NO VB

MARCGUALBER 22/09/2011 20:10:16
#384994

Caros coloquei esta instrução e o Dim não abre o banco de dados.

Private Sub c1_GotFocus()

Dim Areatrabalho As Workspace
Dim query As String
Dim xxbco As Database

Set Areatrabalho = DBengine.Workspaces(0)
Set xxbco = Areatrabalho.OpenDatabase(App.Path & [Ô]\Cadastro.Mdb[Ô], False, False)
query = [Ô]select max(c1) from Cadastro[Ô]
Set dyn = xxbco.OpenRecordset(query)
DBengine.Idle dbFreeLocks
If Not dyn.EOF Then
If Not IsNull(dyn(0)) Then
c1 = Format$(Val(dyn(0)) + 1, [Ô]0000[Ô])
Else
c1 = [Ô]0001[Ô]
End If
End If
xxbco.Close

End Sub


Espero que possam ajudar!!!!