因为没有SQL server 数据库，所以无法运行检验。
请问，这样的代码编写正确吗？
Imports System
Imports System.Data
Imports System.Data.SqlClient
Public Class 登陆界面
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'connect to database
Dim sqlConnection1 As SqlClient.SqlConnection
Dim sqlConnection As String = "Server=waly-pc;database=login;uid=sa;pwd=123456" '“server=计算机名;database=数据库名;uid=登录数据库用户名;pwd=登录数据库密码”
sqlConnection1 = New System.Data.SqlClient.SqlConnection(sqlConnection)
sqlConnection1.Open() 'open the database
'验证信息
Dim sql As String = "select count(*) from UserInfo where UserID='" & TextBox1.Text.Trim() & "' and UserPassword='"
Dim sqlCmd As SqlCommand = New SqlCommand(sql, sqlConnection1)
Dim count As Integer
count = sqlCmd.ExecuteScalar
If count > 0 Then
MessageBox.Show("登陆成功！ " & TextBox1.Text & "， 您好！")
Else
MessageBox.Show("登陆失败！请确认您是否已经注册。")
End If
sqlConnection1.Close()
End Sub
END Class

@Yentre