hello every one
this my code to fill my combobox with the name of clients and i but the connection string in a module to let my prog workimg in any pc in the group But the problem here in the combobox says can not make the connection, I know that because of i did not wriet the connection string in the form and I do not wont to add the connection string on the form what is the solution?

            cmd.Connection = con
            ds = New DataSet
            tables = ds.Tables
            da = New SqlDataAdapter("SELECT custnam from client", con)
            da.Fill(ds, "client")
            Dim view1 As New DataView(tables(0))
            With ComboBox1
                .DataSource = ds.Tables("client")
                .DisplayMember = "custnam"
                .ValueMember = "custnam"
                .SelectedIndex = -1
                .AutoCompleteMode = AutoCompleteMode.SuggestAppend
                .AutoCompleteSource = AutoCompleteSource.ListItems
            End With