abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ
1º
Dim numRows As Integer
2º
dbConnection1
3º
Set rs = openRecordset("select
4º
With rs
5º
numRows = .RecordCount
6º
If numRows = 1 Then
7º
If .BOF <> True Or .EOF <> True Then
8º
.MoveFirst
9º
abel1.Caption = .Fields("Mensaje")
10º
End If
11º
End If
12º
End With
13º
Set rs = Nothing
14º
dbDisconnect1
15º
End Sub
Otros juegos similares:
Otros juegos similares:
Otros juegos similares:

