Visual Basic - PROBLEMA Conexion DBSEIII con DRIVER o DNS

LA CONEXION QUE UTILIZO ES LA SIGUIENTE

Set Conexion = CreateObject("ADODB.Connection")
Conexion.Open "dsn=peddia" ' O cualquier DSN válido
Set miRs = New ADODB.Recordset
miRs.CursorType = adOpenKeyset
miRs.LockType = adLockOptimistic
miRs.Source = "peddia"
Set miRs.ActiveConnection = Conexion
miRs.Open

LA CONEXION ES DE SOLO LECTURA NO ME DEJA MODIFICARLA ¿ALGUIEN SABE COMO MODIFICAR PALIAR ESTE PROBLEMA?
¿ALGUIEN HA CONSEGUIDO LA CONEXION MEDIANTE EL DRIVER
Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\Peddia.dbf;" O ALGO PARECIDO? gracias por vuestro interes

Espero que esto te sirva:

ConnStr = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=Driver={Microsoft Visual FoxPro Driver (*.dbf)};UID=;SourceDB=G:\SISTEMAS\SUPERVI;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
Cn.Open ConnStr 'This can be a datasource name or a connect string
SQL = "Select Distinct clieprov.ruc, clieprov.nombre, clieprov.cod from clieprov WHERE ((clieprov.ruc)> 999999999) ORDER BY clieprov.ruc "
Cmd.CommandText = SQL
Cmd.CommandType = 1 'SQL statement
Set Cmd.ActiveConnection = Cn
Rs.CacheSize = 10
Rs.Open Cmd, , adOpenStatic

saludos