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

    Function RefillDS()
        SqlConnection1.Open()
        DsKunden1.Clear()
        SqlDataAdapter1.Fill(DsKunden1.Akquisiteur)
        SqlDataAdapter2.Fill(DsKunden1.Anrede)
        SqlDataAdapter4.Fill(DsKunden1.Branche)
        SqlDataAdapter5.Fill(DsKunden1.Kontakt)
        SqlDataAdapter6.Fill(DsKunden1.Kunden)
        SqlDataAdapter7.Fill(DsKunden1.Prioritaet)
        SqlDataAdapter3.Fill(DsKunden1.Ansprechpartner)
        SqlDataAdapter8.Fill(DsKunden1.Insolvent)
        SqlConnection1.Close()
 
        mobjCurrencyManager = CType(Me.BindingContext(dvKunden), _
          CurrencyManager)
        mobjCurrencyManager2 = CType(Me.BindingContext(dvAnsprechpartner), _
        CurrencyManager)
        mobjCurrencyManager3 = CType(Me.BindingContext(dvKontakte), _
        CurrencyManager)
        mobjCurrencyManager4 = CType(Me.BindingContext(dvAkquisiteure), _
        CurrencyManager)
        mobjCurrencyManager5 = CType(Me.BindingContext(dvBranchen), _
        CurrencyManager)
    End Function

If it was hard to code, it should be hard to read too.