[RESOLVED] Method or data menber not found

[macky^^]

Compile error:Method or data menber not found.
Any ideas what's wrong with this coding?

Option Explicit
Private cn As ADODB.Connection
Private rs As ADODB.Recordset
Private total4
Dim temp, mov
Dim DataMember As String
Dim Data As Object
 
 
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open App.Path & "./Car Rental.mdb"
 
Set rs = New ADODB.Recordset
rs.Open "Customer", cn, adOpenStatic, adLockOptimistic, _
adCmdTable
 
Set Text1.DataSource = rs
Text1.DataField = "CustID"
Set Text2.DataSource = rs
Text2.DataField = "CustFname"
Set Text3.DataSource = rs
Text3.DataField = "CustLname"
 
Call GetDataMember
d.Caption = rs.total4 '<------- error source
 
End Sub
Private Sub GetDataMember()
 
Set Data = rs
temp = rs.RecordCount
 
If temp < 2 Then
 mov = temp & " Customer "
Else
 mov = temp & " Customers "
End If
 
total4 = "Total " & mov & "in the database."
 
End Sub