حساب عدد السجلات و الرقم المتكرر يحسب كأنه سجل واحد

PHP كود :
Public Function RecordsCount1() As Integer
        Dim Result As Integer = 0
        Dim Conn As OleDbConnection = New OleDbConnection("provider=microsoft.jet.oledb.4.0;" & "data source=" & Application.StartupPath & "\db11.mdb")
        Dim Comm As OleDbCommand = New OleDbCommand("SELECT COUNT(*) AS RecCounts FROM aeamer_ww ", Conn)
        Try
            Conn.Open()
            Dim dReader As OleDbDataReader = Comm.ExecuteReader
            If dReader.HasRows Then
                Do While dReader.Read
                    Result = dReader("RecCounts")
                Loop
            Else
                Result = 0
            End If
        Catch ex As Exception
            MessageBox.Show("An error has occurred, Error Description:" & vbNewLine & ex.ToString, "Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Finally
            Conn.Dispose()
            Comm.Dispose()
        End Try
        Return Result
    End Function