[ Ερωτήματα ] Πρόβλημα με το LIKE

[anestaki]

Καλησπέρα σε όλους
Με την παρακάτω Function προσπαθώ να παρώ τον αριθμό των χρηστών με κινητά αλλά έχω πρόβλημα με το LIKE
Κάθε Βοήθεια δεκτή σας ευχαριστώ εκ των προτέρων Γιώργος

Function Count_app_sms() As Integer
Dim rs As New ADODB.Recordset
Dim cn As ADODB.Connection
Dim str As String

Set cn = CurrentProject.Connection

str = "SELECT id,end_date,phone FROM tbl_appartment_usage  where isnull(end_date) and  phone  like '69*';"

rs.Open str, cn, adOpenKeyset, adLockOptimistic

If rs.RecordCount = 0 Then
    Count_app_sms = 0
Else
    Count_app_sms = Nz(CInt(rs.RecordCount))
End If

End Function

[kapetang]

Καλησπέρα

Γιώργο, θα σου πρότεινα τη συνάρτηση:

Dcount("*","tbl_appartment_usage","isNull(end_date) And Left(Phone,2)='69'")

Φιλικά/Γιώργος

[anestaki]

Γιώργο σε ευχαριστώ το ίδιο αποτέλεσμα με μια γραμμή κώδικα!!!!!!!!!!!!!!!