Etiket: <span>Listbox</span>

  Sub veridoldur() Me.ListBox1.Clear Dim cnn As ADODB.Connection Dim rs1 As ADODB.Recordset Dim rs2 As ADODB.Recordset Dim arr() As Variant Dim satir As Long Dim j As Integer Dim cnnstr…

  Private Sub UserForm_Activate() Dim cnn As ADODB.Connection Dim rs As ADODB.Recordset Dim cnnstr As String Set cnn = New ADODB.Connection Set rs = New ADODB.Recordset cnnstr = “Provider=SQLOLEDB;Data Source=……..;Initial…