me falla esta conexion!!!

Si es que me da que no acabo esto, siempre que consigues una cosa te falla
la otra, la conexion que crei que funcionaba y el fallo era de otro sitio,
quite el on error resume next y casca, os pongo el codigo, falla en la linea
21:

im rs
dim adoConn
set adoConn = Server.CreateObject("ADODB.Connection")

set rs = Server.CreateObject("ADODB.Recordset")

adoConn.Open "Provider2.168.1.100:3306;" & _ **** linea 21 ****
"Data Source=etsedi;" & _
"User Id=root;" & _
"PasswordE43"
if rs.errors.count = 0 then
response.write "OK"
else
response.write "ERROR"
end if