Record set açılışında hata

[Yitik]

Merhaba arkadaşlar, logo go veritanından bilgi çekmeye çalışıyorum. Baglan ve con modül içinde public olarak tanımlandı, aşağıdaki sorgu ile recordset açılışında. " Run-time error '-2147217900(80040e14)': Incorrect syntax near 'dbo'. Hatası alıyorum, ayrıca aşağıdaki sorgu ile logo veritabanında wiev oluşturdum wiev adı = "dbo.stokbaris" bu wiev i de recordset e alamadım bir türlü nerede hata yapıyorum? İyi çalışmalar.

Private Sub UserForm_Activate()
Dim rs As Object
Set rs = CreateObject("adodb.recordset")

Call Baglan


s = " select * dbo.LG_014_ITEMS.STGRPCODE AS [GRUP KODU], dbo.LG_014_ITEMS.CODE AS [MALZ. KODU], dbo.LG_014_ITEMS.NAME AS [MALZ. AÇIKLAMASI],"
s = s & " dbo.LG_014_PRCLIST.PRICE AS [SATIŞ FİYATI], SUM(dbo.LG_014_01_STINVTOT.ONHAND) AS [STOK MİKTARI],"
s = s & " dbo.LG_014_PRCLIST.CURRENCY AS [DÖVİZ KODU]"
s = s & " FROM dbo.LG_014_01_STINVTOT INNER JOIN"
s = s & " dbo.LG_014_ITEMS ON dbo.LG_014_01_STINVTOT.STOCKREF = dbo.LG_014_ITEMS.LOGICALREF INNER JOIN"
s = s & " dbo.LG_014_PRCLIST ON dbo.LG_014_ITEMS.LOGICALREF = dbo.LG_014_PRCLIST.CARDREF"
s = s & " GROUP BY dbo.LG_014_ITEMS.CODE, dbo.LG_014_ITEMS.NAME, dbo.LG_014_PRCLIST.PRICE, dbo.LG_014_PRCLIST.PTYPE, dbo.LG_014_01_STINVTOT.INVENNO,"
s = s & " dbo.LG_014_ITEMS.STGRPCODE , dbo.LG_014_PRCLIST.CURRENCY"
s = s & " HAVING (dbo.LG_014_PRCLIST.PTYPE = 2) And (dbo.LG_014_01_STINVTOT.INVENNO = -1)"

rs.Open s, con, 1, 1
With ListView1
.ListItems.Add , , rs(0).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rs(1).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rs(2).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rs(3).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rs(4).Value
.ListItems(.ListItems.Count).ListSubItems.Add , , rs(5).Value
'.ListItems(.ListItems.Count).ListSubItems.Add , , rs(6).Value
End With
End Sub