- Код: Выделить всё
Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.ConnectionString = "DSN=JetNovelty;"
cn.Open
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Source = "select *" & _
"from imtbl_department " & _
"where State = 'id' "
Вот так примерно...
Пишет ошибку .... вот так...
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
Помогите пожалуйстя... покажите пример правильного кода...
