Dim strcmd As String
        Dim sqlcon As SqlConnection = New SqlConnection(strcon)
        sqlcon.Open()
        strcmd = "select id from t_login"
        Dim sqlcmd As SqlCommand = New SqlCommand(strcmd, sqlcon)
        Dim dr As SqlDataReader
        dr = sqlcmd.ExecuteReader
        Do While dr.Read()
            If Trim(ComboBox1.Text) = dr.Item(0) Then     '這里我的數據庫里有相對應的資料但是不行運以下代碼
                MsgBox("a")
                Exit Sub
            ElseIf Trim(ComboBox1.Text) <> dr.Item(0) Then’反而運行這里，也就是未找到
                MsgBox("用戶ID錯誤或不存在請查檢！")
            End If
        Loop

問題已解決謝謝bz
原來是字段的類型設成char

[[it] 本帖最后由 jxyga111 于 2008-11-18 08:52 编辑 [/it]]