VB与SQL Server连接失败是什么原因

Question

VB上录入数据无法连接到SQL Server是什么原因
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist security Info=True;User ID=sa;Password=123456;Initial Catalog=特种车辆驾驶员管理系统;Data Source=local"
Conn.Open
Dim sql As String
sql = "insert into 特种车辆驾驶员信息表（DirverID,DriverName,HandringID,CitizenID,Sex,DLGrade,[Date of obtaining DL],[Validity of DL],[Driving Unit]）values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text6.Text & "','" & Text7.Text & "','" & Text8.Text & "','" & Text9.Text & "')"
rs.Open sql, 3, 3
Conn.Close
End Sub

Answer 1

Data Source=local" 
改成server=local 
或 
server=. 
或 
server=你的ip地址

Answer 2

Data Source=local
--- 改成 Data Source=(local)