主题：为何连接数据库报错？

报错：语句未结束。

请教大师，下面这个语句应该怎么改？

代码：

sub DataInsert()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

Set adoConn=CreateObject("Adodb.Connection")
adoConn.Open"Provider=MSDAORA.1;Password=****;User ID=user;Data Source=fdc"

conn.Close
Set conn = Nothing

end sub