VB.NET + ADO.NET erro

ola pessoal estou fazendo um teste no vb.net estou tentando conexao com o meu banco de dados que esta em SQLServer 2000 o banco se chama suporte

quando ele tenta se conectar da o seguinte erro:

An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in system.data.dll

abaixo vai o codigo

Dim cn As New System.Data.SqlClient.SqlConnection("server=localhost;database=suporte;uid=sa;password=;")

 Dim cm As New System.Data.SqlClient.SqlCommand("Select * from TabelaUsuario", cn)

 Dim dr As System.Data.SqlClient.SqlDataReader

 cn.Open()

 dr = cm.ExecuteReader

 dr.Read()

 

 MsgBox(dr("CodigoUsuario"))