[0theghost0]

مسامحة شباب شكلي بدوخكم وياي ترى الكود مثل الشيء

الكود
Using conn As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb;Persist Security Info=False;")
conn.Open()
Dim cmd As New OleDbCommand
Dim sql As String = "Select Case isnull(MAX((Ren_NO) + 1), 1) from Rent_Equipment"

Dim x As Integer = cmd.ExecuteScalar

TextBox5.Text = x
End Using

مكان الخطأ
Dim x As Integer = cmd.ExecuteScalar

عنوان الخطأ
An unhandled exception of type 'System.InvalidOperationException' occurred in System.Data.dll

Additional information: ExecuteScalar: Connection property has not been initialized.

فهل من يستطيع مساعدتي
اتمنى وضع الكود بجميع محتوياته لا تضع لي نصف الكود او جزء بسيط منه انني مبتدأ في عالم البرمجة لذا اريد شيء استطيع قرائته وفهمه وافادة الاخارين منه
اتمنى انكم توقفون وياي ولاتنزعجون مني البرنامج الى استخدمه للتذكير فقط
Visual Basic 2015 RC