Insert Data To A Table Where Select Data From Another SERVER

I had a function like below :Public Sub Getdata2(ByVal query, ByVal db, ByVal name)

Dim selectSQL As StringDim con As SqlConnection

Dim cmd As SqlCommand

Dim reader As SqlDataReader

Trycon = New SqlConnection("User ID=xxx;password=xxx;persist security info=True;Initial Catalog=database1;Data Source=xxx.xxx.xxx.xxx.xxx,xxxxx;")

Dim username As String

username = Request.QueryString("username")

selectSQL = "SET DATEFORMAT DMY;Insert into table1(hse_num, st_name, proj_name, unit_num, postal, n_postal, flr_area, flr_sf, flr_rate, flr_ra_sf, land_area, land_sf, land_rate, lnd_ra_sf, prop_code, cont_date, title, sisv_ref, r_date, rec_num, source, username, DGP, Remarks, Sub_Code, caveat, consider, age) select hse_num, st_name, proj_name, unit_num, postal, n_postal, flr_area, flr_sf, flr_rate, flr_ra_sf, land_area, land_sf, land_rate, lnd_ra_sf, prop_code, cont_date, title, sisv_ref, r_date, rec_num, source, '" & username & "', DGP, Remarks, Sub_Code, caveat, consider, age from [yyy.yyy.yyy.yyy,yyyy].database2.dbo.table2 where " & querycmd = New SqlCommand(selectSQL, con)

con.Open()

reader = cmd.ExecuteReader()

lbl.Text = selectSQLCatch ex As Exception

lbl.Text = ex.Message

Finally

If (Not con Is Nothing) Then

con.Close()

con.Dispose()

End If

End Try

End Sub

'------------------------------------------------------------------------------------------------------------------------------------------------------------------------- 

May i know that how do i retrieve data from  [yyy.yyy.yyy.yyy,yyyy].database2.dbo.table2 due to diffrent server, diffrent UID and Password