i am trying to join 2 tables but i get a error Join Expreesion not Supported
what i am doing wrong?
any help will be appreciated
regards salsa31
what i am doing wrong?
Code:
Dim RsX As New ADODB.Recordset
RsX.Open "Select VipCustomers.VipName,VipCustomers.VipCredit,VipCustomers.VipGift,Customers.Cellular " & _
"From Customers " & _
"INNER JOIN VipCustomers ON Customers.FullName = VipCustomers.VipName " & _
"AND Cellular <> '0000000000' AND Cellular <> '1111111111' AND Cellular <> '2222222222' AND Cellular <> '3333333333' AND Cellular <> '4444444444' AND Cellular <> '5555555555'AND Cellular <> '6666666666'AND Cellular <> '7777777777' AND Cellular <> '8888888888'AND Cellular <> '9999999999' AND LEN(Cellular) > 9 AND SmsPermision <> 'No ", CN
LsVw.ListItems.clear
Do While Not RsX.EOF
Set itm = FrmSmsVipCustomersClub.LsVw.ListItems.Add(, , RsX!VipName)
itm.Bold = True
itm.SubItems(1) = RsX!Cellular
itm.SubItems(2) = RsX!VipCredit
itm.SubItems(3) = RsX!VipGift
RsX.MoveNext
Loopregards salsa31