Conexão com BD

[Gabriel Jardim]

Não sei o que estou fazendo de errado, está ai o código

Private Sub Form_Load()

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim BancoDados As String
Dim sql As String

    Set rs = New ADODB.Recordset
    Set rs.ActiveConnection = cn

MES_ANO = Format(Now(), "MMYY")


    servidor = "TI01"
    BancoDados = "MASTER"

    cn.Provider = "SQLOLEDB"
    cn.Properties("Data Source").Value = servidor
    cn.Properties("Initial Catalog").Value = BancoDados
    cn.Properties("User ID").Value = "sa"
    cn.Properties("Password").Value = "sawa"
    cn.Open

    sql = "select * from TBD_REL_PRODUTOS_SERVICOS_" & MES_ANO & " order by PRODUTOS"
    rs.Open sql, cn

    cboTabela.Clear
    rs.MoveFirst
    Do While Not rs.EOF
        cboTabela.AddItem rs.Fields("PRODUTOS").Value
        rs.MoveNext
    Loop


rs.Close
cn.Close

End Sub

o Erro é esse:

Compile ERROR:

USER-DEFINED TYPE NOT DEFINED

o que eu faço? :blink:

--------------------------------

-RESOLVIDO O PROBLEMA-

--------------------------------

O esquema é o seguinte:

1º --> O código está correto

2º --> Esqueci de habilitar os componentes para conexão com o Banco de dados

Então nunca se esqueçam de habilitar os componetes necessários para o desenvolvimentos do seu Sistema.

Um forte abraço e até a Próxima!

Gabriel Jardim

Editado Outubro 20, 2010 por Gabriel Jardim