mysql_rows in asp.net (vb.net) (Opgelost)

Dim command as OleDbCommand = new OleDbCommand ("SELECT COUNT(*) UserName FROM tbl_users WHERE Username = '"& txt_Name.Text &"'")

Dim command as OleDbCommand = new OleDbCommand ("SELECT COUNT(*) UserName FROM tbl_users WHERE Username = '"& txt_Name.Text &"'")

Dim verbinding As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source = LOCATIE\\test.mdb")
Dim myReader As OleDbDataReader()
Dim myCommand As OleDbCommand()    
Dim query, resultaat As String = ""

query = "SELECT naam FROM leden WHERE id = 1";
myCommand = new OleDbCommand(query, verbinding);
       
Try
       
    verbinding.Open()
    myReader = myCommand.ExecuteReader()
    
    While myReader.Read()
        resultaat = myReader.GetString(0)   
    End While

    myReader.Close();
    label_een.Text = resultaat
       
Catch x As Exception
    label_een.Text = x.Message;
Finally
    verbinding.Close();
End Try

Dim verbinding As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source = LOCATIE\\test.mdb")
Dim myReader As OleDbDataReader()
Dim myCommand As OleDbCommand()    
Dim query, resultaat As String = ""
 
query = "SELECT naam FROM leden WHERE id = 1";
myCommand = new OleDbCommand(query, verbinding);
 
Try
 
    verbinding.Open()
    myReader = myCommand.ExecuteReader()
 
    While myReader.Read()
        resultaat = myReader.GetString(0)   
    End While
 
    myReader.Close();
    label_een.Text = resultaat
 
Catch x As Exception
    label_een.Text = x.Message;
Finally
    verbinding.Close();
End Try

        Dim Command As New OleDbCommand("SELECT COUNT(UserName) FROM tbl_users WHERE Username = '" & txt_Name.Text & "'", Connection)

Dim RecordCount As String = CType(Command.ExecuteScalar(), String)

    lbl_status.Text = RecordCount

Dim Command As New OleDbCommand("SELECT COUNT(UserName) FROM tbl_users WHERE Username = '" & txt_Name.Text & "'", Connection)
 
Dim RecordCount As String = CType(Command.ExecuteScalar(), String)
 
    lbl_status.Text = RecordCount