Dim _recordCount as Int32
 
Private Function GetRecordCount()
    Dim strSQL As String = "Select Count(kdnr) from myTbl where [...]"
    Dim objCmd As New OleDbCommand(strSQL, New OleDbConnection(myCon))
    objCmd.Connection.Open()  
    _recordCount = Convert.ToInt32(objCmd.ExecuteScalar)    
    objCmd.Connection.Close()
End Function