Trợ giúp sửa chương trình VB6

[kylh]

Chào anh chị !!!! Em đang tập làm chương trình quản lý nhỏ cho công ty, nhưng sao phần nhập liệu và tìm kiếm em sửa hoài mà cứ báo lỗi.
Nhờ Anh chị nào rành code VB6, sửa lại phần Code tìm kiếm và nhập liệu giúp em. Cám ơn nhiều. có File đính kèm

 

[sealand]

Mình chưa xem toàn bộ được nhưng sơ bộ mình thấy có 2 vấn đề dẫn đến lỗi về biến khi Form hoạt động:
-Bạn phải Reference, khai báo và khởi tạo rồi set biến đó thành dạng kết nôi ADODB.Lúc này chương trình mới biết kết nối với CSDL nào và Table nao.Hiện đang lỗi ở phần kết nối.
-Không được đặt tên biến trùng với tên lệnh, hàm hay các Constants của hệ thống. Ví dụ bạn khai báo.
Dim delete As Integer
Dim message As String
Dim dialogtype As Integer
.....
Nếu cần để mang tính gợi ý thì phải khác đi 1 chút. Ví dụ:

Dim delete As Integer thành Dim m_delete As Integer