主题：请求教！！

Dim s As Row=Tables("入库").Current
If  s.IsNull("来布单位") Or s.IsNull("订布款号") Or s.IsNull("订布单号") Or s.IsNull("布类") Or s.IsNull("颜色") Or s.IsNull("实重")Or s.IsNull("匹数")Then
    MessageBox.Show("请输入完整信息!备注除外")
Else
    Dim rk1 As String=s("订布款号")
    Dim rk2 As String=s("订布单号")
    Dim rk3 As String=s("布类")
    Dim rk4 As String=s("颜色")
   
    With Tables("库存")
        Dim r As Integer
        .Position = 0
        r = .FindRow("[订布款号] Like rk1 and [订布单号] Like rk2 and [布类] Like rk3 and [颜色] Like rk4", .Position, True ) '从当前行开始查找
        If r >= 0 Then '如果找到的话
            .Position = r '定位到找到的行.
        End If
    End With
   
    Tables("入库").AddNew()
End If

老是出错。。。

是不是这样表示不对呢？

 Dim rk1 As String=s("订布款号")
    Dim rk2 As String=s("订布单号")
    Dim rk3 As String=s("布类")
    Dim rk4 As String=s("颜色")
   
    With Tables("库存")
        Dim r As Integer
        .Position = 0
        r = .FindRow("[订布款号] Like rk1 and [订布单号] Like rk2 and [布类] Like rk3 and [颜色] Like rk4", .Position, True )

请老师们指教！