Run time error 381 - Combobox

Pozdravljeni,

v VBA se mi preko Comboboxa prikažejo različne stranke, ki se dobijo prek mdb datoteke.

Problem pa nastane, ko želim v comboboxu ročno vpisati stranko, ki ne obstaja. Tako dobim error:

Run-time error '381':

Could not get the column property. invalid property array index.

Koda, ki je povezana s to napako izgleda testno takole:

Private Sub cmbStranke1_Change()



    strankID = cmbStranke1.Column(0)



End Sub

Namreč želel bi preko comboboxa dobiti ime stranke in prek baze pridobil dodatne informacije stranke, ter te podatke prikazati v različnih textboxih.

Celotna koda za spremembo izgleda takole:

Private Sub cmbStranke1_Change()



    strankID = cmbStranke1.Column(0)



    Dim con As String

    Dim cn As ADODB.Connection

    Dim rs As ADODB.Recordset

    Dim sql As String

    con = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\baza.mdb;Persist Security Info=False"

    sql = "SELECT * FROM stranke WHERE ime_podjetja = '" & strankID & "';"



    Set cn = New ADODB.Connection

    Set rs = New ADODB.Recordset

    cn.Open con

    rs.Open sql, cn, 3, 3, 1



    If IsNull(rs.Fields(0).Value) Then

        txtNaziv = ""

        txtNaslov = ""

        txtPostnaSt = ""

        txtKraj = ""

    Else

        txtNaziv = rs.Fields(1).Value

        txtNaslov = rs.Fields(2).Value

        txtKraj = rs.Fields("kraj").Value

        txtPostnaSt = rs.Fields("postna_st").Value

        strankaID = rs.Fields("id").Value

    End If

    rs.Close

    cn.Close

    Set rs = Nothing

    Set cn = Nothing

End Sub

Zna mogoče kdo tukaj priskočiti na pomoč?

Sem že rešil problem. Namesto

strankID = cmbStranke1.Column(0)

sem uporabil:

strankID = cmbStranke1.Value

A se kdo spozna kaj na excel in access?

Namreč želel bi nekako povezati Access z Excelom tako, da lahko nekateri uporabniki lahko vnašajo podatke v Excel, medtem pa se te podatki osvežijo ob shranitvi tudi na Accessovi bazi oziroma obratno.

Kako linkati iz Excela v Access sem pogruntal, ampak potem v Accessu ni mogoče popravljati teh tabel.