报错：语句未结束。
请教大师，下面这个语句应该怎么改？
代码：
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