VB 连接mssql数据并读取数据

Dim Conn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim Sql As String

Conn.ConnectionString = "Provider=SQLOLEDB;Password=123456;Persist Security Info=False;User ID=sa;Initial Catalog=数据库名称;Data Source=数据库地址"

Conn.Open
If RS.State = adStateOpen Then RS.Close
RS.CursorLocation = adUseClient
Sql = "select * from News"
RS.Open Trim$(Sql), Conn, adOpenKeyset, adLockPessimistic
'DataGrid1.DataSource = RS
If RS.RecordCount > 0 Then
Print ("有数据")
RS.MoveFirst
lblLabel1.Caption = RS("Title")
End If