Please help me

may this connection string help you :)

    Try
        Dim cs As String = "Data Source=.\sqlexpress;Initial Catalog=Loadshedding;Integrated Security=True;"
        CON = New SqlConnection(cs)
      
        CON.Open()
    Catch ex As Exception
        MessageBox.Show("error in database connection!" & vbCrLf & ex.Message, _
                        "error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try