---

Below is the code that I use to connect to MS-SQL server, but when I run the
program I get this message:

"Compile Error. User defined type not defined" and it marks the first line
of code "RS As ADODB.Recordset"

Why? What is wrong?

Private Sub Command1_Click()
Dim RS As ADODB.Recordset
Dim strSql
Dim conStr
conStr = "Provider=SQLOLEDB.1;Password=abcd;Persist Security
Info=True;UID=sa;Initial Catalog=MYDB;Data Source=LOCAL"
strSql = "select * from users"


Set RS = New ADODB.Recordset
RS.CacheSize = 10
RS.CursorLocation = adUseClient

RS.Open strSql, conStr, adOpenDynamic, adLockOptimistic, adCmdText

If Not RS.EOF Then
txtInfo(0).Text = RS("brukernavn")
txtInfo(1).Text = RS("passord")
End If
End Sub

---

You must set a reference to ADO.

HTH. Best wishes Harald

"Erlend Stokkedal" <erlestok@online.no> wrote in message
news:Ghc39.6098$sR2.108235@news4.ulv.nextra.no...
> Below is the code that I use to connect to MS-SQL server, but when I run
the
> program I get this message:
>
> "Compile Error. User defined type not defined" and it marks the first
line
> of code "RS As ADODB.Recordset"