With ds.Tables.Add(table)
                    .Columns.Add(col1, GetType(Integer))
                    .Columns.Add(col2, GetType(String))
                End With

                Dim cmd_if = cn.CreateCommand()
                cmd_if.CommandText = text
                cmd_if.CommandType = CommandType.StoredProcedure
                Dim da_if As New SqlClient.SqlDataAdapter(cmd_if)
                da_if.Fill(ds.Tables(tableIndex))
                Me.ComboBox_if.DataSource = ds.Tables(tableIndex)
                Me.ComboBox_if.DisplayMember = displayMember
                Me.ComboBox_if.ValueMember = valMember
               

Private Sub AddTables(Dim tableName As String, Dim col1 As String, Dim col2 As String)
     With ds.Tables.Add(tableName)
          .Columns.Add(col1, GetType(Integer))
          .Columns.Add(col2, GetType(String))
     End With   
End Sub

Private Sub FillCB(Dim commandText As String, Dim tabIndex As Int, Dim displMem As String, Dim valMem As String)
     Dim cmd_if = cn.CreateCommand()
     cmd_if.CommandText = commandText 
     cmd_if.CommandType = CommandType.StoredProcedure
     Dim da_if As New SqlClient.SqlDataAdapter(cmd_if)
     da_if.Fill(ds.Tables(tabIndex ))
     Me.ComboBox_if.DataSource = ds.Tables(tabIndex )
     Me.ComboBox_if.DisplayMember = displMem 
     Me.ComboBox_if.ValueMember = valMem 
End Sub

Using cn As New SqlClient.SqlConnection(bldr.ConnectionString)
    Try
       cn.Open()
       Dim ds As New DataSet()
       AddTables("if", "код_иф", "назв_иф")
       AddTables("vr", "код_вр", "назв_вр")
       AddTables("zak", "id_zak", "назв_зак")

       FillCB("general.usp_get_sp_if",  0 , "назв_иф", "код_иф")
       FillCB("general.usp_get_sp_vr",  1 , "назв_вр", "код_вр")  
       
       ' zak
       и т.д.