Private Sub cmdSearch_Click()
    Dim sConn As String 'for the connection string
    
    Dim db As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim sPath As String
    Dim sSQL As String
    Dim SubID As String
    
    sPath = App.Path & "\SSADM.mdb;"
    sConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath
    db.ConnectionString = sConn
    db.Open
    SubID = txtSubsID.Text
    sSQL = " Select * From Subscriber WHERE SubscriberID =" & SubID & ""
    
    With rs
        .ActiveConnection = db
        .LockType = adLockOptimistic
        .CursorType = adOpenKeyset
        .Open sSQL

        lblName.Caption = .Fields("SubName").Value
        
        
    End With
    
    Set dgCurrentSubs.DataSource = Nothing
    Set dgCurrentSubs.DataSource = rs
    dgCurrentSubs.Refresh
    lblName.Visible = True
    
    Set rs = Nothing
    db.Close
    Set db = Nothing
    
End Sub