试一下

Dim Conn As New ADODB.Connection，RsMain As New ADODB.Recordset,MainSQL As String
1. 使用回车响应
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 then
    MainSQL = "Select * from [Sheet1$] in 'C:\SN.xls' 'Excel 8.0;' where [SN] = '" & Trim(Text1.text) & "'"      ----> 'C:\SN.xls' 为Excel路径,首行插入一行表头"SN"
    RsMain.open MainSQL ,Conn,1,1
    If Not RsMain.EOF then
        Label1.Caption = "合法条码"
    ELSE
        Label1.Caption = "非法条码"
    Endif
    RsMain.close
    Text1.Setfocus
EndIf

2. 数据输入后自动响应 （利用文本框数据变化时字长判断）
Private Sub Text1_Change()
If Len(Trim(Text1.Text)) = 18 Then
    MainSQL = "Select * from [Sheet1$] in 'C:\SN.xls' 'Excel 8.0;' where [SN] = '" & Trim(Text1.Text) & "'"
    RsMain.Open MainSQL, Conn, 1, 1
    If Not RsMain.EOF Then
        Label1.Caption = "合法条码"
    Else
        Label1.Caption = "非法条码"
    End If
    RsMain.Close
Else
    Label1.Caption = "非法条码"
End If
Text1.SetFocus

[ 本帖最后由 owenlu1981 于 2014-3-7 10:24 编辑 ]

可以将frm.vbp.数据库这些文件打包吗？ 我才接触VB一两天，这些我肯定是不知道怎么弄，无从下手啊。

直接可以 EXE 文件？

源代码我也想了解啊

都在附件了，提供了两种方式的exe

谢谢你！已经搞定了~

加油吧！给你精神上的支柱

不会数据库，还去做数据库，而且是短时间内完成。这样的必须是苦命。软件讲的是逻辑。这个也是编程思维得出的结果。