用控件我知道怎以连接，但我想跟VB6.0一样，用纯代码连接数据库来操作，不知道怎么连，请教！！！

用System.Data.SQL库
里边包含着SqlConnection
SQLCommand
等等。
具体介绍，可以去看MSDN。

Sub mysub()
 Dim conn As New SqlConnection() '声明连接
 '设置连接字符串
 conn.ConnectionString = "Data Source=BORED;Initial Catalog=Forward;Persist Security Info=True;User ID=SA;Password=forward"
 conn.Open() '打开连接
 Dim cmd As New SqlCommand
 cmd.CommandType = CommandType.Text
 cmd.CommandText = "select * from userinfo where username = '" & UserNameTextBox.Text & "' and password = '" & PasswordTextBox.Text & "'"
 cmd.Connection = conn
 Dim sqlRead As SqlDataReader = cmd.ExecuteReader
 If sqlRead.Read Then
 ' 下面利用sqlRead来获取数据
 Dim o As Object = sqlRead(0) '获取第一行数据
 End If
 End Sub