Dim mm As String = My.Computer.Name
Dim DB As String = My.Settings.DBname  ' Database name in my app setting
Con = New SqlConnection("Server=" & mm & ";Database= " & DB & " ;Trusted_Connection=True;")