Correction to the code...
New Code... still doesnt work :-(
Dim MyConnection as OLEDBConnection
MyConnection = New OleDBConnection("Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=" & fDir.AppDomainAppPath & "CTDBv1.mdb;")
MyConnection.Open()
Dim DeleteBUSADD As String = "SELECT * FROM BUSADD"
Dim catCMD2 As OleDbCommand = New OleDbCommand(DeleteBUSADD, MyConnection)
Dim custReader2 As OleDbDataReader = catCMD2.ExecuteReader()
Do While custReader2.Read()
Message.InnerHtml = "WHAZZUP"
Message.Style("color") = "red"
Loop
custReader2.Close
MyConnection.Close