Temat: Mam problem z zaciagnieciem danych do combobox z accessa.

Public Class Form1

    Sub fillcombo()

        strsql = "Select * from Operatorzy"

        Dim acscmd As New OleDb.OleDbCommand

        acscmd.CommandText = strsql

        acsdr = acscmd.ExecuteReader

        While (acsdr.Read())



            ComboBox1.Items.Add.(acsdr("Nazwisko")) 



            '''Error    1    Argument not specified for parameter 'item' of 'Public Function Add(item As Object) As Integer'.    C:\Users\Seba\Desktop\vb2010\2\WindowsApplication1\WindowsApplication1\Form1.vb    9    13    WindowsApplication1





        End While

        acscmd.Dispose()

        acsdr.Close()







    End Sub

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        Module1.connect()

        Me.fillcombo()

    End Sub

End Class













Kod:



Imports System.Data.OleDb



Module Module1

    Public acsconn As New OleDb.OleDbConnection

    Public acsdr As OleDbDataReader

    Public strsql As String



    Sub connect()

        'acsconn.ConnectionString = "Provider=Microsoft.ace.oledb.12.0; data source=|datadirectory|\baza.accdb:"

        acsconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Seba\Desktop\vb2010\2\WindowsApplication1\baza.accdb; Persist Security Info=False"

        acsconn.Open()



    End Sub

End Module