Нарыл в и-нете пример первой программы на VB с использованием баз данных. Написал - не работает.

Код:

Private Sub Command1_Click()
Dim str As String
str = "SELECT ORDERSALES.Id_prod, PRODUCT.Product, PRODUCT.Price, ORDERSALES.num_order, ORDERSALES.Date_order, ORDERSALES.id_cust, ORDERSALES.Date_sale, ORDERSALES.num_sale FROM ORDERSALES, PRODUCT WHERE ORDERSALES.id_cust=" + text4.Text + " AND ORDERSALES.Id_prod = PRODUCT.Id_prod"
Data2.RecordSource = str

rem Эта строчка "не работает". ругается на нее.
Data2.Refresh

s$ = "Код товара|Наименование товара|Цена|Количество|Дата заказа|Код покупателя|Дата продажи|Кол-во прод. товара"
MSFlexGrid1.FormatString = s$
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.row = MSFlexGrid1.Rows - 1
MSFlexGrid1.col = 0
MSFlexGrid1.Text = "Всего: "
MSFlexGrid1.col = 1

Dim i As Integer
Dim sum As Double
sum = 0
For i = MSFlexGrid1.FixedRows To MSFlexGrid1.Rows - 1
sum = sum + Val(MSFlexGrid1.TextArray(GetCellIndex(i, 2))) * Val(MSFlexGrid1.TextArray(GetCellIndex(i, 3)))
Next

MSFlexGrid1.Text = CStr(sum) + " руб."
MSFlexGrid1.row = 1
MSFlexGrid1.col = 1
End Sub

Function GetCellIndex(row As Integer, col As Integer) As Long
GetCellIndex = row * MSFlexGrid1.Cols + col
End Function


Что делать? помогите, пожалуйста.

Эта программа обращается к базе Access "customer.mdb"

Run-time error '3464'

Data type mismatch in criteria expression.

все, исправил на числовое - заработало!

Спасибо!