vb6 จะทำตรวจสอบ username password ของผู้ใช้ ติดปัญหาเขียนเงื่อนไขครับ

Private Sub WinsockPacket_DataArrival(Index As Integer, ByVal bytesTotal As Long)
    Dim data As String
    Dim dataedit() As String
    Set rs = New ADODB.Recordset
    WinsockPacket(Index).GetData data
    dataedit = Split(data, ":-:")
    If dataedit(0) = "login" Then
        sql = "select * from members where username = '" & dataedit(1) & "' and password = '" & dataedit(2) & "'"
        rs.Open sql, ms, adOpenDynamic, adLockBatchOptimistic

    End If
End Sub