Public Class Lekton_05
 
    Dim username As String = "xxx"
    Dim ip As String = "xxx.kasserver.com"
    Dim db As String = "d01107b6"
    Dim pw As String = "xxx"
 
    Dim ds As DataSet = New DataSet
 
    Private Sub Window_Initialized(ByVal sender As System.Object, ByVal e As _
      System.EventArgs)
 
        Try
			dim connectionString = string.Format("Server={0}; password={1};user" & _
  "id={2};database={3}",ip,pw,username,db)
 
			Dim adapter As New MySqlDataAdapter( "SELECT * FROM" & _
  "back_branche",connectionString)
 
            adapter.Fill(ds)
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class