VB: Próba połączenia z bazą danych

Witajcie,

Nie umiem programować, nie lubie tego, ale jednak muszę pomóc przy edycji jednego dokumentu w Excelu, który łączy się z programem SubiektGT. Są tam utworzone buttony pomagające aktualizować dane o towarach np. cenę, ilość minimalną itd (po kliknięciu magicznego przycisku otwiera się program i aktualizuje dane wprowadzone w polu Excela). Ma też aktualizować informacje o grupie towarów i tutaj pojawia się problem, bo nie wiem ja kto zrobić. Do tego potrzebne jest zapytanieSQL. Mam posilkować się tym:

Dim grID As String
sSQL = "SELECT ido_wartosc FROM ins_ident WHERE(ido_nazwa = 'Grupa Towaru')"
oRs.CursorLocation = adUseClient
oRs.Open sSQL, oSgt.Baza.Polaczenie
oRs.ActiveConnection = Nothing
If Not (oRs.EOF) Then
    oRs.MoveFirst
End If
    While Not oRs.EOF
        GrID = oRs!ido_wartosc
        oRs.MoveNext
    Wend

Ale, jak mam to zrobić, co zadeklarować żeby faktycznie działało?