这个连接有实时错误为什么呢 请高手指点 我想用VB+SQL 做一个数据库

[globevb]

Private Sub Form_Load()
Dim connstr As String
Dim conn As New ADODB.Connection
Dim rs As ADODB.Recordset
connstr = "Provider=SQLOLEDB.1;" & _
"Persist Security Info=True;" & _
"User ID=sa" & _
"Initial Catalog=Northwind;" & _
"Data Source=GLOBE-RY90Q3QH8"

conn.Open connstr
rs.Open "Orders", conn, adOpenKeyset, adLockOptimistic
Set Text1.DataSource = rs
Text1.DataField = "OrderID"
End Sub

[globevb]

UP

[globevb]

UP

[zero_3]

"UP"是什么？