Private Sub Form_Load()
Dim Sql As String
If cn.State = adStateOpen Then cn.Close
Set cn = CurrentProject.AccessConnection
If rs.State= adStateOpen Then rs.Close
With rs
Sql = “SELECT tblSubCategory.SubCategoryID,tblSubCategory.SubCategoryName as [SubCategoryName],tblCategory.CategoryID,tblCategory.CategoryName as [CategoryName] FROM tblCategory INNER JOIN tblSubCategory ON tblCategory.CategoryID = tblSubCategory.CategoryID order by tblCategory.CategoryID”
.CursorType = adOpenDynamic
.CursorLocation = adOpenDynamic
.LockType = adLockOptimistic
.Open Sql, cn, , , adCmdText
End With
Set lstCategory.Recordset = rs
End Sub
Dim Sql As String
If cn.State = adStateOpen Then cn.Close
Set cn = CurrentProject.AccessConnection
If rs.State= adStateOpen Then rs.Close
With rs
Sql = “SELECT tblSubCategory.SubCategoryID,tblSubCategory.SubCategoryName as [SubCategoryName],tblCategory.CategoryID,tblCategory.CategoryName as [CategoryName] FROM tblCategory INNER JOIN tblSubCategory ON tblCategory.CategoryID = tblSubCategory.CategoryID order by tblCategory.CategoryID”
.CursorType = adOpenDynamic
.CursorLocation = adOpenDynamic
.LockType = adLockOptimistic
.Open Sql, cn, , , adCmdText
End With
Set lstCategory.Recordset = rs
End Sub