Problemas con RDS.Datacontrol

[jasamestica]

Con estas lineas me aparece el error: error interno de servidor, ¿a que se debe?

Dim DC As New RDS.DataControl
Dim RS As ADODB.Recordset
DC.Server = "http://sebastian"
DC.Connect = "DSN=mibasesqlserver"
DC.SQL = "SELECT * FROM nombres"
DC.ExecuteOptions = 1
DC.FetchOptions = 1
DC.SortColumn = "nombre"
DC.Refresh

Set RS = DC.Recordset
RS.Open "insert into tblnombre values('jose')"

DC.SubmitChanges

[GeoAvila]

'DC.Server = "http://sebastian"

y si envez de esta linea colocas la ip..

la verdad nunca he trabajdo lo que estas tratando, sería bueno explicaras...

nos vemos..